home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / PTRWDGT._ / PTRWDGT.
Encoding:
Text File  |  2001-03-02  |  1.3 KB  |  41 lines
  1. 10    ! *************************************************************
  2. 20    ! Example: PRINTER Widget
  3. 30    !
  4. 40    ! This program generates a PRINTER widget.
  5. 50    !
  6. 60    ! *************************************************************
  7. 70    !
  8. 80    DIM S$[50],P$[50],T$[50]
  9. 90    INTEGER Lines
  10. 100   !
  11. 110   ASSIGN @Prn TO WIDGET "PRINTER"
  12. 120   CONTROL @Prn;SET ("TITLE":" Example: PRINTER Widget")
  13. 130   CONTROL @Prn;SET ("X":50,"Y":25,"WIDTH":250,"HEIGHT":125)
  14. 140   CONTROL @Prn;SET ("SYSTEM MENU":"Quit")
  15. 150   !
  16. 160   ON EVENT @Prn,"SYSTEM MENU" GOTO Finis
  17. 170   !
  18. 180   S$=TIME$(TIMEDATE)&" PRINT TEST LINE 1"
  19. 190   CONTROL @Prn;SET ("APPEND TEXT":S$)
  20. 200   Lines=1
  21. 210   LOOP
  22. 220     REPEAT
  23. 230       P$=S$
  24. 240       S$=TIME$(TIMEDATE)
  25. 250     UNTIL S$<>P$
  26. 260     IF Lines<5 THEN
  27. 270       Lines=Lines+1
  28. 280       T$=S$&" PRINT TEST LINE "&VAL$(Lines)
  29. 290       CONTROL @Prn;SET ("CURRENT LINE":1,"INSERT TEXT":T$)
  30. 300     ELSE
  31. 310       CONTROL @Prn;SET ("CURRENT LINE":5)
  32. 320       STATUS @Prn;RETURN ("CURRENT TEXT":T$)
  33. 330       CONTROL @Prn;SET ("CURRENT LINE":5,"DELETE LINES":1)
  34. 340       CONTROL @Prn;SET ("CURRENT LINE":1,"INSERT TEXT":T$)
  35. 350     END IF
  36. 360   END LOOP
  37. 370   !
  38. 380 Finis: !
  39. 390   ASSIGN @Prn TO *    ! Delete PRINTER widget
  40. 400   END
  41.